home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Syntax Definitions / vbscript.def < prev    next >
Text File  |  2000-11-08  |  3KB  |  131 lines
  1. object TPersHolder
  2.   P.Name = 'VBScript'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       FIText = 0
  8.       FIIntNum = 1
  9.       FIFloatNum = 2
  10.       FIHexNum = 3
  11.       FISymbol = 8
  12.       UseSymbols = True
  13.       UseComments = True
  14.       UseSingleLineComments = True
  15.       UseStrings = True
  16.       UseSingleLineStrings = True
  17.       UseNumbers = True
  18.       UseKeywords = True
  19.       BlockDelimiters = <>
  20.       SingleLineCommentDelimiters = <
  21.         item
  22.           FontID = 4
  23.           LeftDelimiter = #39
  24.         end
  25.         item
  26.           FontID = 5
  27.           LeftDelimiter = 'rem'
  28.         end>
  29.       SingleLineStringDelimiters = <
  30.         item
  31.           FontID = 6
  32.           LeftDelimiter = '"'
  33.           RightDelimiter = '"'
  34.         end>
  35.       KeywordSets = <
  36.         item
  37.           FontID = 7
  38.           Name = 'reserved'
  39.           Keywords = 
  40.             'And,As,Attribute,Base,ByVal,Call,Case,Compare,Const,Date,Declare' +
  41.             ',Dim,Do,Each,Else,Elseif,Empty,end,Error,Exit,Explicit,False,For' +
  42.             ',friend,Function,get,If,Is,let,Loop,Mod,Next,Not,Nothing,Null,On' +
  43.             ',Option,Or,Private,property,Public,ReDim,Rem,Select,Set,String,S' +
  44.             'ub,Then,To,True,Type,Wend,While,With,Xor'
  45.         end>
  46.     end>
  47.   P.FontTable = <
  48.     item
  49.       FontID = 0
  50.       GlobalAttrID = 'Whitespace'
  51.       Font.Charset = DEFAULT_CHARSET
  52.       Font.Color = clBlack
  53.       Font.Height = -13
  54.       Font.Name = 'Courier New'
  55.       Font.Style = []
  56.     end
  57.     item
  58.       FontID = 1
  59.       GlobalAttrID = 'Integer'
  60.       Font.Charset = DEFAULT_CHARSET
  61.       Font.Color = clGreen
  62.       Font.Height = -13
  63.       Font.Name = 'Courier New'
  64.       Font.Style = []
  65.     end
  66.     item
  67.       FontID = 2
  68.       GlobalAttrID = 'Float'
  69.       Font.Charset = DEFAULT_CHARSET
  70.       Font.Color = clGreen
  71.       Font.Height = -13
  72.       Font.Name = 'Courier New'
  73.       Font.Style = []
  74.     end
  75.     item
  76.       FontID = 3
  77.       GlobalAttrID = 'Integer'
  78.       Font.Charset = DEFAULT_CHARSET
  79.       Font.Color = clGreen
  80.       Font.Height = -13
  81.       Font.Name = 'Courier New'
  82.       Font.Style = []
  83.     end
  84.     item
  85.       FontID = 4
  86.       GlobalAttrID = 'Comment'
  87.       Font.Charset = DEFAULT_CHARSET
  88.       Font.Color = clGray
  89.       Font.Height = -13
  90.       Font.Name = 'Courier New'
  91.       Font.Style = [fsItalic]
  92.     end
  93.     item
  94.       FontID = 5
  95.       GlobalAttrID = 'Comment'
  96.       Font.Charset = DEFAULT_CHARSET
  97.       Font.Color = clGray
  98.       Font.Height = -13
  99.       Font.Name = 'Courier New'
  100.       Font.Style = [fsItalic]
  101.     end
  102.     item
  103.       FontID = 6
  104.       GlobalAttrID = 'String'
  105.       Font.Charset = DEFAULT_CHARSET
  106.       Font.Color = clMaroon
  107.       Font.Height = -13
  108.       Font.Name = 'Courier New'
  109.       Font.Style = []
  110.     end
  111.     item
  112.       FontID = 7
  113.       GlobalAttrID = 'Reserved words'
  114.       Font.Charset = DEFAULT_CHARSET
  115.       Font.Color = clBlue
  116.       Font.Height = -13
  117.       Font.Name = 'Courier New'
  118.       Font.Style = [fsBold]
  119.     end
  120.     item
  121.       FontID = 8
  122.       GlobalAttrID = 'Delimiters'
  123.       Font.Charset = DEFAULT_CHARSET
  124.       Font.Color = clBlack
  125.       Font.Height = -13
  126.       Font.Name = 'Courier New'
  127.       Font.Style = []
  128.     end>
  129.   P.SyntaxVersion = 3
  130. end
  131.